home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / clonecd / September 93.img / Australasian Legends / Commercial / Golden Micro Solutions / Commander Demo / Commander Demo.rsrc / TEXT_5007_ADD RECORD.txt < prev    next >
Text File  |  1993-09-07  |  3KB  |  52 lines
  1. ADD¬†RECORD ({file}; {*})
  2.                                                                                     Pg 17-3
  3.  
  4. file        File      File to use for data entry
  5. *                      Hide scroll bars and size box
  6.  
  7.  
  8. ADD RECORD lets the user add a new record to the database. ADD RECORD creates a new record for file, makes the new record the current record in the current process, and displays the current input layout. After the user has accepted the new record, th new record is the only record in the current selection.
  9.  
  10. ADD RECORD displays the input layout until the user accepts or cancels the record. If the user is adding several records, the command has to be executed once for each new record.
  11.  
  12.  
  13. With this command, the record is saved (accepted) if the user clicks an Accept button or presses the Enter key, or if the ¬†ACCEPT command is executed. Accepting the record sets the OK system variable to 1.
  14.  
  15. The record is not saved (cancelled) if the user clicks a Cancel button or presses the cancel key combination (Command-period), or if the ¬†CANCEL command is executed. Cancelling sets the OK system variable to 0. Even when cancelled, the record remains in memory and can be saved if SAVE¬†RECORD is executed before the current record pointer is changed. The OK system variable is set only after the record is saved or canceled.
  16.  
  17. The layout procedure execution cycle is started if a layout procedure exists for the layout. Scripts that exist for the layout may also be executed, depending on the user‚Äôs actions.
  18.  
  19.  
  20. The following is an example of a loop commonly used to add new records to a database:
  21.  
  22. INPUT LAYOUT([Customers];"Cust In") 
  23.                                              ` Set the input layout for [Customers] file
  24. Repeat¬†                                     ` Loop until the user cancels
  25.   ADD RECORD([Customers])      ` Add a record to the [Customers] file
  26. Until (OK=0)                               ` Until the user cancels and OK=0
  27.  
  28.  
  29.  
  30. The following example searches the database for a customer. Depending on the results of the search, one of two things may happen. If no customer is found, then the user is allowed to add a new customer with ADD RECORD. If one or more customer records are found, the user is presented with each customer's record for modification with MODIFY¬†RECORD:
  31.  
  32. INPUT LAYOUT([Customers];"Cust In")        ` Set the input layout
  33. OUTPUT LAYOUT([Customers];"Cust out")   ` Set the output layout
  34. vNo:= Request("Enter Customer No.")            ` Get the customer no.
  35. If (OK=1)
  36.    SEARCH([Customers];[Customers]CustNo=Num(vNo))  
  37.                                                          `  Search for the customer record
  38.    If (Records in selection([Customers])=0)  ` No customer found...
  39.       ADD RECORD([Customers])                        ` add a new customer 
  40.    Else
  41.        MODIFY RECORD([Customers])             ` Modify found record
  42.    End if
  43. End if
  44.  
  45.  
  46.  
  47. See also: ¬†ACCEPT,  INPUT¬†LAYOUT, ¬†Locked,  
  48.                MODIFY¬†RECORD,  READ¬†WRITE, ¬†Repeat,  
  49.                SAVE¬†RECORD
  50.  
  51.  
  52.